home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / error_hn / mcbundle / 3dmeter / t2w_3dm.bas next >
BASIC Source File  |  1995-07-17  |  2KB  |  41 lines
  1. Option Explicit
  2.  
  3. ' structure for 3D-Meter
  4. Type tag3DMeter
  5.    CrtValue          As Long              'current value
  6.    MaxValue          As Long              'maximum value
  7.    BackColor         As Long
  8.    ForeColor         As Long
  9.    Polygon           As Integer           '0  : rectangle, 1 : triangle, 2 : trapezium, 3 : ellipse , 4 : bars
  10.    BarSize           As Integer           'size of a bar (polygon = 4) (in pixel : min=1,max=20,default=10)
  11.    SpaceBars         As Integer           'space between bars (polygon = 4) (in pixel : min=1,max=4,default=2)
  12.    Direction         As Integer           '0  : horizontal, other : vertical
  13.    ThreeD            As Integer           '-1 : indented, 1 : raised
  14.    Thickness         As Integer
  15.    Percent           As Integer           'internal use, do not change
  16.    OldPolygon        As Integer           'internal use, do not change
  17.    OldDirection      As Integer           'internal use, do not change
  18.    OldThreeD         As Integer           'internal use, do not change
  19.    HatchBrush        As Integer           '-1 : solid brush, 0 : hor., 1 : ver., 2 : downward diag., 3 : upward diag., 4 : cross, 5 : diag.cross
  20. End Type
  21.  
  22. Rem Don't Remove It
  23. Declare Sub c3D Lib "time2win.dll" (Ctl As Control, ByVal Method As Integer, ByVal Thickness As Integer)
  24. Declare Sub c3DMeter Lib "time2win.dll" (hCtl As Control, Meter As tag3DMeter)
  25. Declare Function cGetVersion Lib "time2win.dll" () As Single
  26. Declare Sub cTypesCopy Lib "time2win.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer)
  27.  
  28. Sub Main ()
  29.  
  30.    ' check if the correct version
  31.    If (cGetVersion() < 5.02) Then
  32.       MsgBox "You must have the version 5.02 of 'TIME TO WIN'"
  33.       End
  34.    End If
  35.  
  36.    Load Form1
  37.    Form1.Show
  38.    
  39. End Sub
  40.  
  41.